home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / gdb-4.5 / dist / bfd / coff-i960.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-03-29  |  6.1 KB  |  206 lines
  1. /* Intel 960 COFF support for BFD.
  2.    Copyright (C) 1990-1991 Free Software Foundation, Inc.
  3.    Written by Cygnus Support.
  4.  
  5. This file is part of BFD, the Binary File Descriptor library.
  6.  
  7. This program is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2 of the License, or
  10. (at your option) any later version.
  11.  
  12. This program is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with this program; if not, write to the Free Software
  19. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20.  
  21. /* $Id: coff-i960.c,v 1.28 1992/03/29 18:45:44 gnu Exp $ */
  22.  
  23. #define I960 1
  24. #define BADMAG(x) I960BADMAG(x)
  25.  
  26. #include "bfd.h"
  27. #include "sysdep.h"
  28. #include "libbfd.h"
  29. #include "obstack.h"
  30. #include "coff/i960.h"
  31. #include "coff/internal.h"
  32. #include "libcoff.h"        /* to allow easier abstraction-breaking */
  33.  
  34.  
  35. #define CALLS     0x66003800    /* Template for 'calls' instruction    */
  36. #define BAL     0x0b000000    /* Template for 'bal' instruction    */
  37. #define BAL_MASK 0x00ffffff
  38.  
  39. static bfd_reloc_status_type 
  40. optcall_callback(abfd, reloc_entry, symbol_in, data, ignore_input_section)
  41. bfd *abfd;
  42. arelent *reloc_entry;
  43. asymbol *symbol_in;
  44. PTR data;
  45. asection *ignore_input_section;
  46. {
  47.   /* This item has already been relocated correctly, but we may be
  48.    * able to patch in yet better code - done by digging out the
  49.    * correct info on this symbol */
  50.   bfd_reloc_status_type result;
  51.   coff_symbol_type *cs = coffsymbol(symbol_in);
  52.  
  53.   /* So the target symbol has to be of coff type, and the symbol 
  54.      has to have the correct native information within it */
  55.   if ((cs->symbol.the_bfd->xvec->flavour != bfd_target_coff_flavour)
  56.       || (cs->native == (combined_entry_type *)NULL)) {
  57.      /* This is interesting, consider the case where we're outputting */
  58.      /* coff from a mix n match input, linking from coff to a symbol */
  59.      /* defined in a bout file will cause this match to be true. Should */
  60.      /* I complain ? - This will only work if the bout symbol is non */
  61.      /* leaf. */
  62.      result = bfd_reloc_dangerous;
  63.   }
  64.   else  {
  65.     switch (cs->native->u.syment.n_sclass) 
  66.       {
  67.       case C_LEAFSTAT:
  68.       case C_LEAFEXT:
  69.       /* This is a call to a leaf procedure, replace instruction with a bal
  70.      to the correct location */
  71.     {
  72.       union internal_auxent *aux = &((cs->native+2)->u.auxent);
  73.       int word = bfd_get_32(abfd, (bfd_byte *)data + reloc_entry->address);
  74.       int olf = (aux->x_bal.x_balntry - cs->native->u.syment.n_value);
  75.       BFD_ASSERT(cs->native->u.syment.n_numaux==2);
  76.       /* We replace the original call instruction with a bal to */
  77.       /* the bal entry point - the offset of which is described in the */
  78.       /* 2nd auxent of the original symbol. We keep the native sym and */
  79.       /* auxents untouched, so the delta between the two is the */
  80.       /* offset of the bal entry point */
  81.  
  82.       word = ((word +  olf)  & BAL_MASK) | BAL;
  83.         bfd_put_32(abfd, word, (bfd_byte *) data + reloc_entry->address);
  84.       }
  85.     result = bfd_reloc_ok;
  86.     break;
  87.       case C_SCALL:
  88.     /* This is a call to a system call, replace with a calls to # */
  89.     BFD_ASSERT(0);
  90.     result = bfd_reloc_ok;
  91.     break;
  92.       default:
  93.     result = bfd_reloc_ok;
  94.     break;
  95.       }
  96.   }
  97.   return result;
  98. }
  99.  
  100.  
  101.  
  102. static reloc_howto_type howto_table[] = 
  103. {
  104.   {0},
  105.   {1},
  106.   {2},
  107.   {3},
  108.   {4},
  109.   {5},
  110.   {6},
  111.   {7},
  112.   {8},
  113.   {9},
  114.   {10},
  115.   {11},
  116.   {12},
  117.   {13},
  118.   {14},
  119.   {15},
  120.   {16},
  121.  
  122.   { (unsigned int) R_RELLONG, 0, 2, 32,false, 0, true, true,
  123.       0,"rellong", true, 0xffffffff, 0xffffffff},
  124.   {18},
  125.   {19},
  126.   {20},
  127.   {21},
  128.   {22},
  129.   {23},
  130.   {24},
  131.  
  132.   {  R_IPRMED, 0, 2, 24,true,0, true, true,0,"iprmed ", true,
  133.        0x00ffffff, 0x00ffffff},
  134.   {26},
  135.  
  136.   {  R_OPTCALL, 0,2,24,true,0, true, true, optcall_callback,
  137.        "optcall", true, 0x00ffffff, 0x00ffffff},
  138.  
  139. };
  140.  
  141. /* The real code is in coffcode.h */
  142.  
  143. #define RTYPE2HOWTO(cache_ptr, dst) \
  144.         cache_ptr->howto = howto_table + (dst)->r_type;
  145.  
  146. #include "coffcode.h"
  147.  
  148. bfd_target icoff_little_vec =
  149. {
  150.   "coff-Intel-little",        /* name */
  151.   bfd_target_coff_flavour,
  152.   false,            /* data byte order is little */
  153.   false,            /* header byte order is little */
  154.  
  155.   (HAS_RELOC | EXEC_P |        /* object flags */
  156.    HAS_LINENO | HAS_DEBUG |
  157.    HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT),
  158.  
  159.   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
  160.   '/',                /* ar_pad_char */
  161.   15,                /* ar_max_namelen */
  162.  
  163.      3,                /* minimum alignment power */
  164.   _do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* data */
  165.   _do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* hdrs */
  166.  
  167.     {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
  168.        bfd_generic_archive_p, _bfd_dummy_target},
  169.     {bfd_false, coff_mkobject,    /* bfd_set_format */
  170.        _bfd_generic_mkarchive, bfd_false},
  171.     {bfd_false, coff_write_object_contents, /* bfd_write_contents */
  172.        _bfd_write_archive_contents, bfd_false},
  173.   JUMP_TABLE(coff),
  174. COFF_SWAP_TABLE
  175.   };
  176.  
  177.  
  178. bfd_target icoff_big_vec =
  179. {
  180.   "coff-Intel-big",        /* name */
  181.   bfd_target_coff_flavour,
  182.   false,            /* data byte order is little */
  183.   true,                /* header byte order is big */
  184.  
  185.   (HAS_RELOC | EXEC_P |        /* object flags */
  186.    HAS_LINENO | HAS_DEBUG |
  187.    HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT),
  188.  
  189.   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
  190.   '/',                /* ar_pad_char */
  191.   15,                /* ar_max_namelen */
  192.  
  193.   3,                /* minimum alignment power */
  194. _do_getl64, _do_putl64,  _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* data */
  195. _do_getb64, _do_putb64,  _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* hdrs */
  196.  
  197.   {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
  198.      bfd_generic_archive_p, _bfd_dummy_target},
  199.   {bfd_false, coff_mkobject,    /* bfd_set_format */
  200.      _bfd_generic_mkarchive, bfd_false},
  201.   {bfd_false, coff_write_object_contents,    /* bfd_write_contents */
  202.      _bfd_write_archive_contents, bfd_false},
  203.   JUMP_TABLE(coff),
  204. COFF_SWAP_TABLE
  205. };
  206.